home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / TEST8.TRP < prev    next >
Text File  |  1995-01-17  |  187b  |  10 lines

  1. procedure main
  2.         local 
  3.                 v : integer = 1
  4.         endVar
  5.         repeat
  6.                 v := v * 2
  7.                 writeln(v)
  8.         until (v > 100)
  9. endproc
  10.